Автостарт программы "Ранний" по ячейке 65358/59 (RAMTOP-9)
началом в точке перехвата.

God Mode:

New File [Автозапуск 1-3.tzx]				; Создать новую виртуальную кассету для записи данных
Cassette Recorder [Record]				; Включить виртуальный магнитофон на запись, открыв телепортационное окно 1232 поставив команду LD H, H
Debugger						; Открыть отладчик для ввода данных
Dec							; Переключить отображение чисел в десятичный режим
Go To 65358						; Переместиться по памяти на нужный адрес
65358 <-- 65220 0 0 0					; Адрес запуска своей программы и зануление лишнего
65366 <-- 0 62						; Установить основание SP
65368 <-- 253 54 0 255 49 84 255 237 115 61 92 241	; Приведение в порядок системы после загрузки
65380 <-- 251 253 203 2 134 17 117 255 1 34 0		; и подготовка вывода текста на экран
65391 <-- 205 60 32 195 3 19 22 11 2 17 0 16 2
65404 <--MATPOC HA ABPOPE MOET OTCEK			; Выводимый текст

; Запись блока с автосбросом

Go To 17996						; Переместиться по памяти на нужный адрес
17996 <-- 65358 0					; Стартовый адрес для блока данных и сброса
18000 <-- 3						; Тип блока Bytes:
18001 <-- 17 0 16 2 65 66 80 79 80 65			; Имя заголовка
18011 <-- 73 65358					; Планируемая длина и стартовый адрес для заголовка

IX <-- 18000						; Указать место размещения шаблона заголовка
SP <-- 17996						; Cоздать временную SP-башенку в любом свободном месте
PC <-- 2436						; Установить Стрелочку на подпрограмму записи
Trace							; Выйти из отладчика и запустить программу
Cassette Recorder [Stop]				; Остановить магнитофон и закрыть телепортационное окно в адресе 1232 вернув команду EX AF, AF'

BASIC <-- LOAD ""CODE ENTER				; Выполнить BASIC фрагмент натуральным способом
Cassette Recorder [Play]				; Включить магнитофон на воспроизведение


Assembler EmuzWin:

	ORG 65358

	DEFW CTAPT				; Адрес запуска своей программы
	DEFB 0, 0, 0, 0, 0, 0, 0, 62		; Установить основание SP
	ORG 65368

CTAPT:	LD (IY+0), 255				; Код вывода сообщения 0 OK для красоты
	LD SP, 65364				; Восстановление возврата в BASIC 
	LD (23613), SP
	POP AF
	EI
	RES 0, (IY+2)
	LD DE, TEKCT
	LD BC, KOHETC-TEKCT
	CALL 8252
	JP 4867
TEKCT:	DEFB 22, 11, 2, 17, 0, 16, 2, 'MATPOC HA ABPOPE MOET OTCEK'
KOHETC:
